Option Explicit
Sub Q_Sample010()
    ']wޥζMicrosoft Scripting Runtime
    Dim myFso As Scripting.FileSystemObject
    Dim myTxt As Scripting.TextStream
    Set myFso = CreateObject("Scripting.FileSystemObject")
    'wɮ
    Set myTxt = myFso.CreateTextFile(Filename:=ThisWorkbook.Path & "\Q_Test.txt", _
        OverWrite:=True)
    With myTxt
        'ngJr
        .Write "դ1"
        .Write "դ2"
        .WriteBlankLines 2
        .WriteLine "դ3"
        .WriteLine "դ4"
        .Write "դ5" & vbCrLf & "դ6"
        .Close
    End With
    Set myTxt = Nothing                                    '
    Set myFso = Nothing
End Sub
